﻿Public Class LoginEpixirisi

    Private _idEtairias As String
    Public Property idEtairias() As String
        Get
            Return _idEtairias
        End Get
        Set(ByVal value As String)
            _idEtairias = value
        End Set
    End Property
    Private _flagNew As Boolean
    Public Property flagNew() As Boolean
        Get
            Return _flagNew
        End Get
        Set(ByVal value As Boolean)
            _flagNew = value
        End Set
    End Property


    Private Sub EntranceButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EntranceButton.Click
        LoginForm.Visible = False
        Dim KiriaForma As New MainForm(idEtairias)
        KiriaForma.ShowDialog()
        LoginForm.Close()
    End Sub

    Private Sub EponumiaComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EponumiaComboBox.SelectedIndexChanged
        idEtairias = EponumiaComboBox.SelectedValue
    End Sub

    Private Sub NeaEpixirisiButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeaEpixirisiButton.Click
        flagNew = True
        Dim Epixirisi As New Epixirisi(flagNew)
        Epixirisi.ShowDialog()
    End Sub
End Class
